home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / lib / xt / error.c < prev    next >
C/C++ Source or Header  |  1992-10-06  |  514b  |  20 lines
  1. #include "xt.h"
  2.  
  3. static Object V_Xt_Warning_Handler;
  4.  
  5. void Xt_Warning (msg) char *msg; {
  6.     Object args, fun;
  7.  
  8.     args = Cons (Make_String (msg, strlen (msg)), Null);
  9.     fun = Var_Get (V_Xt_Warning_Handler);
  10.     if (TYPE(fun) == T_Compound)
  11.     (void)Funcall (fun, args, 0);
  12.     Format (Curr_Output_Port, msg, strlen (msg), 0, (Object *)0);
  13.     (void)P_Newline (0, (Object *)0);
  14. }
  15.  
  16. init_xt_error () {
  17.     Define_Variable (&V_Xt_Warning_Handler, "xt-warning-handler", Null);
  18.     XtSetWarningHandler (Xt_Warning);
  19. }
  20.